1 IFA=0THENA=1:LOAD"PLAY/FIND",8,1
2 SYS49155"NOAH VOICE",8
3 DIMO$(195):DIMTP$(23)
4 DIMCR$(15)
10 REM (null)(null)
20 POKE775,191
25 RESTORE
30 PRINT"[147]"
50 PRINTCHR$(8):PRINTCHR$(142)
100 M=0:CA=0:NT=0
300 GOTO1900
360 POKE 53280,0: POKE 53281,0:PRINT"[147][149]              [169]          [223][146]"
365 PRINT"    NOAH AND[149]   [166][166][166][219][219][219][166][166][166][166]     THE ARK[149]"
370 PRINT"               [166][166][166][166][166][166][166][166][166][166]    "     "
375 [153]"         (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRWAITSTEP"    "
380 PRINT"          [223][183][183][183][183][183][183][183][144]    [149][183][183][183][183][183][183][146][169]"
385 PRINT"           [223][183][183][183][183][183][183][144]    [149][183][183][183][183][183][146][169]"
390 PRINT"            [223][183][183][183][183][183][146][206]  [205][183][183][183][183][146][169]"
395 PRINT"       [169]     [255][255]                [223][146] @@"
400 PRINT"   \\ [169]                   [216]     [223][146][194][194]"
405 PRINT"   [194][194][169]    *    WRITTEN BY  *     [205] [223]"
410 PRINT"[169] [206]  .                      *   [205] [223]"
415 PRINT"[169] [206]        STEVE WILLIAMS    .    [205] [223][146] @"
420 PRINT"[145][169]                 AND            *    [223][146][194]"
425 PRINT"[145]          [193] CLIFTON W. KROLL           [223]"
430 PRINT"[145]     @                       *          "
435 PRINT"[145]     [194]@ SPEECH DONE WITH VOICEMASTER    "
440 PRINT"[145]  .   [221]     [216]             .        [193][193]   "
445 PRINT"[145]    COVOX, 675-D CONGER ST., EUGENE, OR "
450 PRINT"[145]                                        "
455 PRINT"INSTRUCTIONS? (Y/N)"
456 POKE151,0:SYS49152
457 POKE198,0
460 GETA$:IFA$=""THEN460
465 IFA$="Y" THEN GOTO 480
470 IFA$="N"THENGOTO685
475 IFA$<>"Y,N"THENGOTO460
480 REM
485 TP$(0)="[147]  [144]                                    "
490 TP$(1)="  [144] [146]                [167] [146]                [144] "
495 TP$(2)="  [144] [146]                [167] [146]                [144] "
500 TP$(3)="  [144] [146]                [167] [146]                [144] "
505 TP$(4)="  [144] [146]      T H Y     [144][167] [146]      ALL       [144] "
510 TP$(5)="  [144] [146]                [167] [146]                [144] "
515 TP$(6)="  [144] [146]     W O R D    [144][167] [146]   SCRIPTURE    [144] "
520 TP$(7)="  [144] [146]                [167] [146]                [144] "
525 TP$(8)="  [144] [146]       I S      [144][167] [146]  IS INSPIRED   [144] "
530 TP$(9)="  [144] [146]                [167] [146]                [144] "
535 TP$(10)="  [144] [146]    T R U T H   [144][167] [146]    OF  GOD     [144] "
540 TP$(11)="  [144] [146]                [167] [146]                [144] "
545 TP$(12)="  [144] [146]                [167] [146]                [144] "
550 TP$(13)="  [144] [146]                [167] [146]                [144] "
555 TP$(14)="  [144]                   [144]                 "
560 TP$(15)="                     [157][146][223] "
565 TP$(16)="    [144]EVERY TIME YOU ANSWER A QUESTION"
570 TP$(17)="  CORRECTLY, YOU BUILD PART OF THE ARK"
575 TP$(18)="     WHEN YOU HAVE SCORED 10 CORRECT"
580 TP$(19)="   ANSWERS OUT OF A POSSIBLE 18, YOU"
585 TP$(20)=" WILL SEE NOAH AND THE FLOOD. IF YOU"
587 TP$(21)="  KNOW THE FOLLOWING SONG IT WILL HELP"
588 TP$(22)=" YOU ON THIS DRILL. ANY KEY TO CONTINUE[145][145]"
592 POKE53280,0:POKE53281,12
595 FOR N=0TO22:PRINTTP$(N):NEXTN
597 POKE198,0
600 GETA$:IFA$=""THEN600
610 PRINT"[147]":POKE53280,6:POKE53281,5
620 PRINT"  DAY ONE, DAY ONE,"
622 PRINT"  GOD MADE LIGHT WHEN THERE WAS NONE."
624 PRINT"  DAY TWO, DAY TWO,"
626 PRINT"  GOD MADE AIR FOR ME AND YOU."
628 PRINT"  DAY THREE, DAY THREE,"
630 PRINT"  GOD MADE LAND AND GRASS AND TREES."
632 PRINT"  DAY FOUR, DAY FOUR,"
634 PRINT"  GOD MADE SUN, MOON, STARS GALORE."
636 PRINT"  DAY FIVE, DAY FIVE,"
638 PRINT"  GOD MADE BIRDS AND FISH ALIVE"
640 PRINT"  SIXTH DAY, SIXTH DAY,"
642 PRINT"  GOD MADE MAN AND BEAST THAT DAY."
644 PRINT"  DAY SEVEN, DAY SEVEN,"
646 PRINT"  GOD IS RESTING IN HIS HEAVEN."
648 PRINT"    (SING EACH VERSE TWICE)"
650 PRINT"  *** ANY KEY TO CONTINUE ***"
660 POKE 198,0
670 GETPI$:IFPI$=""THEN670
685 GOSUB1645:GOTO735
735 IFNT=15THEN2710
736 POKE53280,0:POKE53281,12:PRINT"[147]  [144]                                    "
737 NT=NT+1
738 IFX>=195THENX=0
740 PRINT"  [144] [146]                [167] [146]                [144] "
745 PRINT"  [144] [146]                [167] [146]                [144] "
750 PRINT"  [144] [146]                [167] [146]                [144] "
755 PRINT"  [144] [146]                [167] [146]                [144] "
760 PRINT"  [144] [146]                [167] [146]                [144] "
765 PRINT"  [144] [146]                [167] [146]                [144] "
770 PRINT"  [144] [146]                [167] [146]                [144] "
775 PRINT"  [144] [146]                [167] [146]                [144] "
780 PRINT"  [144] [146]                [167] [146]                [144] "
785 PRINT"  [144] [146]                [167] [146]                [144] "
790 PRINT"  [144] [146]                [167] [146]                [144] "
795 PRINT"  [144] [146]                [167] [146]                [144] "
800 PRINT"  [144] [146]                [167] [146]                [144] "
805 PRINT"  [144]                   [144]                 "
810 PRINT"                     [157][146][223] "
815 X=X+1:PRINT"[144][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"O$(X)
820 X=X+1:PRINT""O$(X)
825 X=X+1:PRINT""O$(X)
830 X=X+1:PRINT""O$(X)
835 X=X+1:PRINT""O$(X)
840 X=X+1:PRINT""O$(X)
845 X=X+1:PRINT"[145][145][145][145][145][145][145][145][145][145][145]"O$(X)
850 X=X+1:PRINT""O$(X)
855 X=X+1:PRINT""O$(X)
860 X=X+1:PRINT""O$(X)
865 X=X+1:PRINT""O$(X)
870 X=X+1:PRINT""O$(X)
875 PRINT"                                     "
880 PRINT"                                     "
885 PRINT"                                     "
890 PRINT"                                     "
895 PRINT"                                     [145][145][145][145][145]"
900 PRINT"        SELECT THE BEST ANSWER BY"
905 PRINT"          TYPING A, B, C, OR D."
910 POKE 198,0
915 GETH$:IFH$=""THENGOTO915
925 X=X+1:IFH$=O$(X)THENGOTO1050
930 IFH$="A"ORH$="B"ORH$="C"ORH$="D"THEN955
950 X=X-1:GOTO915
955 GOSUB1200:POKE151,3:SYS49152
965 PRINT"        WRONG - THE ANSWER WAS ";O$(X)
970 GOSUB2800
975 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
980 GOSUB2800
985 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
990 GOSUB2800
995 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
1000 GOSUB2800
1005 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
1010 GOSUB2800
1015 PRINT"[145]        WRONG[146] - THE ANSWER WAS "O$(X)
1020 GOSUB2800
1025 PRINT"[145][146]        WRONG - THE ANSWER WAS "O$(X)
1030 GOSUB2800
1035 PRINT"[145]        WRONG[146]"O$(X)"[146]"
1040 GOSUB2800
1045 GOTO735
1050 POKE151,2:SYS49152:GOSUB1105
1055 PRINT"        "O$(X)" *** THAT IS CORRECT ***[145]"
1057 CA=CA+1
1060 GOSUB2800
1065 PRINT"        "O$(X)"[146] *** THAT IS CORRECT[146] ***[145]"
1070 GOSUB2800
1075 PRINT"        "O$(X)" *** THAT IS CORRECT ***[145]"
1080 GOSUB2800
1085 PRINT"        "O$(X)"[146] *** THAT IS CORRECT[146] ***[145]"
1090 GOSUB2800
1095 GOTO1375
1100 GOTO735
1105 REM: SOUND FOR CORRECT ANSWER
1110 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
1115 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
1120 POKEBE+24,85
1125 POKEBE+4,33:POKEBE+11,17
1130 POKEBE+1,25:POKEBE,30:POKEBE+8,18:POKEBE+7,209
1135 GOSUB2820
1140 POKEBE+1,33:POKEBE,135:POKEBE+8,25:POKEBE+7,30
1145 GOSUB2820
1150 POKEBE+1,42:POKEBE,62:POKEBE+8,31:POKEBE+7,165
1155 GOSUB2820
1160 POKEBE+1,50:POKEBE,60:POKEBE+8,37:POKEBE+7,162
1165 GOSUB2830
1170 POKEBE+1,42:POKEBE,62:POKEBE+8,31:POKEBE+7,165
1175 GOSUB2820
1180 POKEBE+1,50:POKEBE,60:POKEBE+8,37:POKEBE+7,162
1185 GOSUB2830
1190 BEGIN=54272:FORCLEAR=BEGTOBEGIN+24:POKECLEAR,0:NEXT
1195 RETURN
1200 FOR L=54272TO54296:POKEL,0:NEXTL
1205 POKE54296,15
1210 POKE54277,64
1215 POKE54278,64
1220 POKE54273,8:POKE54272,17
1225 POKE54276,33
1230 GOSUB2830
1235 POKE54276,16
1240 RETURN
1375 M=M+1
1380 POKE53281,0:GOSUB1580
1385 PRINT"    [149][223] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [205][163][163][163][163][163][163][163][163][163] [146][169]"
1390 GOSUB2830:IFM<>1THEN1405
1395 GOSUB2840
1400 IFM=1THENGOTO735
1405 PRINT"[145][145]   [149][223] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [205][163][163][163][163][163][163][163][163][163][163][163] [146][169]"
1410 GOSUB2830:IFM<>2THEN1425
1415 GOSUB2840
1420 IFM=2THENGOTO735
1425 PRINT"[145][145]  [149][223]               [205]   [205]              [146][169]"
1430 GOSUB2830:IFM<>3THEN1445
1435 GOSUB2840
1440 IFM=3THENGOTO735
1445 PRINT"[145][145]      [149][164][164][164][164][164][164][164][164][164][164][164][144][164][164][164][164][164][164][149][164][164][164][164][164][164][164][164][164][164][164]"
1450 GOSUB2830:IFM<>4THEN1465
1455 GOSUB2840
1460 IFM=4THENGOTO735
1465 PRINT"[145][145]      [149]     [146][219][219][219]   [144]      [149]           "
1470 GOSUB2830:IFM<>5THEN1485
1475 GOSUB2840
1480 IFM=5THENGOTO735
1485 PRINT"[145][145]      [149]     [146][219][219][219]   [144]      [149]           "
1490 GOSUB2830:IFM<>6THEN1505
1495 GOSUB2840
1500 IFM=6THENGOTO735
1505 PRINT"[145][145]      [149][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1510 GOSUB2830:IFM<>7THEN1525
1515 GOSUB2840
1520 IFM=7THENGOTO735
1525 PRINT"[145][145]    [149][169]                              [223]"
1530 GOSUB2830:IFM<>8THEN1545
1535 GOSUB2840
1540 IFM=8THENGOTO735
1545 PRINT"[145][145]     [149][169]                            [223]"
1550 GOSUB2830:IFM<>9THEN1565
1555 GOSUB2840
1560 IFM=9THENGOTO735
1565 PRINT"[145][145]      [149][169]                          [223]"
1570 GOSUB2850
1575 GOTO2190
1580 PRINT"[147]  [169]                                 [223]"
1585 PRINT" [169]    *      .                 *     [223]"
1590 PRINT"[169]                                     [223]"
1595 PRINT"          *       *                *   [223]"
1600 PRINT"[145]                               *        "
1605 PRINT"[145]                     *                  "
1610 PRINT"[145]    .          *                    *   "
1615 PRINT"[145]       *                  *             "
1620 PRINT"[145]          .                             "
1625 PRINT"[145]   *                    .               "
1630 PRINT"[145]               *                *       "
1635 PRINT"[145]                                        [157][157]"
1640 RETURN
1645 REM
1650 REM
1655 O$(1)="WHEN DID GOD":O$(2)="CREATE THE":O$(3)="HEAVENS AND"
1660 O$(4)="THE EARTH?":O$(5)="":O$(6)="":O$(7)="A. 4000 B.C."
1665 O$(8)="B. IN THE":O$(9)="   BEGINNING":O$(10)="C. AFTER ADAM"
1670 O$(11)="D. 1985 YEARS":O$(12)="   AGO":O$(13)="B"
1675 O$(14)="ON WHICH DAY":O$(15)="DID GOD CREATE":O$(16)="HUMANS?    "
1680 O$(17)="          ":O$(18)="":O$(19)="":O$(20)="A. FIRST    "
1685 O$(21)="B. FOURTH":O$(22)="C. FIFTH    ":O$(23)="D. SIXTH     "
1690 O$(24)="             ":O$(25)="      ":O$(26)="D"
1695 O$(27)="AFTER SIX DAYS":O$(28)="OF CREATION   ":O$(29)="GOD SAID THAT"
1700 O$(30)="EVERYTHING WAS":O$(31)="WHAT?":O$(32)="":O$(33)="A. PERFECT"
1705 O$(34)="B. FINISHED":O$(35)="C. VERY GOOD":O$(36)="D. WORKING"
1710 O$(37)="             ":O$(38)="      ":O$(39)="C"
1715 O$(40)="IN WHOSE IMAGE":O$(41)="DID GOD CREATE":O$(42)="MAN?         "
1720 O$(43)="              ":O$(44)="     ":O$(45)="":O$(46)="A. MICHAEL'S"
1725 O$(47)="B. GOD'S   ":O$(48)="C. ADAM'S   ":O$(49)="D. ABEL'S    "
1730 O$(50)="":O$(51)="":O$(52)="B"
1735 O$(53)="ON WHICH DAY":O$(54)="WAS THE PLANT":O$(55)="KINGDOM MADE"
1740 O$(56)="BY GOD?   ":O$(57)="":O$(58)="":O$(59)="A. SECOND   "
1745 O$(60)="B. THIRD ":O$(61)="C. FIFTH   ":O$(62)="D. SIXTH     "
1750 O$(63)="             ":O$(64)="      ":O$(65)="B"
1755 O$(66)="ON WHICH DAY":O$(67)="DID GOD     ":O$(68)="SEPARATE THE"
1760 O$(69)="LIGHT FROM THE":O$(70)="DARKNESS?":O$(71)="":O$(72)="A. FIRST"
1765 O$(73)="B. SECOND":O$(74)="C. THIRD    ":O$(75)="D. FOURTH    "
1770 O$(76)="             ":O$(77)="      ":O$(78)="A"
1775 O$(79)="THE PLANTS  ":O$(80)="YIELDED FRUIT":O$(81)="EACH ACCORDING "
1780 O$(82)="TO WHAT?      ":O$(83)="         ":O$(84)="":O$(85)="A. ITS KIND"
1785 O$(86)="B. THE RAINS":O$(87)="C. PREVIOUS ":O$(88)="   HARVESTS.  "
1790 O$(89)="D. THEIR NEEDS":O$(90)="      ":O$(91)="A"
1795 O$(92)="WHO WAS TO HAVE":O$(93)="DOMINION OVER":O$(94)="THE FISH,  "
1800 O$(95)="BIRDS, CATTLE,":O$(96)="AND OTHER":O$(97)="ANIMALS."
1805 O$(98)="A. ANGELS":O$(99)="B. LIONS":O$(100)="C. MAN"
1810 O$(101)="D. THE DEVIL":O$(102)="       ":O$(103)="      ":O$(104)="C"
1815 O$(105)="ON WHAT DAY DID":O$(106)="GOD CREATE   ":O$(107)="BIRDS AND SEA"
1820 O$(108)="CREATURES?    ":O$(109)="         ":O$(110)="               "
1825 O$(111)="A. THIRD    ":O$(112)="B. FOURTH":O$(113)="C. FIFTH"
1830 O$(114)="D. SIXTH  ":O$(115)="             ":O$(116)="      ":O$(117)="C"
1835 O$(118)="WHAT MOVED UPON":O$(119)="THE FACE OF":O$(120)="THE WATERS "
1840 O$(121)="IN THE    ":O$(122)="BEGINNING?":O$(123)="":O$(124)="A. GOD    "
1845 O$(125)="B. THE SPIRIT":O$(126)="   OF GOD   ":O$(127)="C. A HUGE STORM"
1850 O$(128)="D. MANY SHIPS":O$(129)="      ":O$(130)="B"
1855 O$(131)="ON WHICH DAY ":O$(132)="DID GOD MAKE":O$(133)="THE SUN, MOON,"
1860 O$(134)="AND STARS?":O$(135)="":O$(136)="":O$(137)="A. SECOND   "
1865 O$(138)="B. THIRD ":O$(139)="C. FOURTH   ":O$(140)="D. SEVENTH   "
1870 O$(141)="             ":O$(142)="      ":O$(143)="C"
1875 O$(144)="WHICH VERSE   ":O$(145)="BEGINS: 'IN  ":O$(146)="THE BEGINNING"
1880 O$(147)="GOD CREATED...'":O$(148)="":O$(149)="":O$(150)="A. GEN. 1:1"
1881 O$(151)="B. GEN. 1:5":O$(152)="C. GEN. 1:20":O$(153)="D. GEN. 1:31"
1882 O$(154)="":O$(155)="":O$(156)="A"
1883 O$(157)="THE SUN, MOON":O$(158)="AND STARS WERE":O$(159)="CALLED WHAT? "
1884 O$(160)="               ":O$(161)="":O$(162)="":O$(163)="A. DIVINE     "
1885 O$(164)="   GUIDES  ":O$(165)="B. GODS     ":O$(166)="C. LIGHTS   "
1886 O$(167)="D. PROPHETIC":O$(168)="   SIGNS":O$(169)="C"
1887 O$(170)="WHAT DID GOD ":O$(171)="DO ON THE     ":O$(172)="SEVENTH DAY? "
1888 O$(173)="":O$(174)="":O$(175)="":O$(176)="A. PUNISHED MAN"
1889 O$(177)="B. NAMED THE":O$(178)="   ANIMALS":O$(179)="C. RESTED"
1890 O$(180)="D. CREATED THE":O$(181)="GARDEN OF EDEN":O$(182)="C"
1891 O$(183)="BASED UPON YOUR":O$(184)="STUDY OF GEN.":O$(185)="1, HOW DID THE"
1892 O$(186)="WORLD COME  ":O$(187)="INTO EXISTENCE?":O$(188)="          "
1893 O$(189)="A. BY CHANCE  ":O$(190)="B. IT IS    ":O$(191)="   ETERNAL"
1894 O$(192)="C. EVOLUTION  ":O$(193)="D. CREATION   ":O$(194)="   BY GOD."
1895 O$(195)="D"
1896 RETURN
1900 REM
1905 PRINT"[147]"
1910 POKE 53280,0:POKE53281,0
1915 G$( 1)="   [169]       [223][146]                       "
1920 G$( 2)=" [169]   *      [205] .   [223][146]                 "
1925 G$( 3)="    *        [205]     [223][146]    [169]      [223][146]       "
1930 G$( 4)="     *        [205]   .    [206]  .        [223][146]"
1935 G$( 5)="            *         [206]        *    [223][146]"
1940 G$( 6)="              *                      [223][146]"
1945 G$( 7)="   *        *         *          *    [223]"
1950 G$( 8)="         *          *           *      "
1955 G$( 9)="                 *                *    "
1960 CR$(0)="[152][175][175]"
1965 CR$( 1)="[170][205] [205]"
1970 CR$( 2)="   [175][175][186] [166][166][175][175]"
1975 CR$( 3)="  [170][205]  [205][166][166]  [205]"
1980 CR$( 4)="  [170] [166][166][166][166][166][166][166][166][180]"
1985 CR$( 5)="   [205][166][166][166][166][166][166][166][166][180]"
1990 CR$( 6)="    [183][183][180][166][166][183][183][183]"
1995 CR$( 7)="      [180][166][166]"
2000 CR$( 8)="      [180][166][166]"
2005 CR$( 9)="[180][166][166]"
2010 CR$(10)="[180][166][166]"
2015 CR$(11)="[180][166][166]"
2020 CR$(12)="[180][166][166]"
2025 CR$(13)="[223][146][152][166][166]"
2030 PRINT""
2035 FOR I=1 TO 9:PRINTG$(I):NEXTI
2040 PRINT""
2045 FOR I=0TO13:PRINTCR$(I):NEXTI
2050 GOSUB2810
2100 PRINT "B I B L E"
2105 GOSUB2850
2110 PRINT"S E R I E S"
2115 GOSUB2850
2120 PRINT"S O F T W A R E"
2125 GOSUB2850
2130 PRINT"BY CLIFTON W. KROLL"
2132 GOSUB2850
2135 PRINT"AND STEVE WILLIAMS"
2150 FORI=16 TO 1 STEP-1
2155 POKE 53280,I
2160 FORJ=1 TO 100:NEXT J
2165 NEXT I
2170 PRINT""
2175 FOR I=1 TO 40:PRINT"";:NEXTI:POKE 53281,1
2180 PRINT""
2185 GOTO360
2190 REM:NOAH MULTICOLOR SPRITE
2195 FOR K=896 TO 958
2200 READ NOAH
2205 POKE K,NOAH
2210 NEXTK
2215 DATA 0,20,4
2220 DATA 0,125,17
2225 DATA 0,125,17,0,125,16
2230 DATA 0,85,16,2,150,144
2235 DATA 2,150,144,2,150,144
2240 DATA 2,170,144,2,170,144
2245 DATA 2,170,144,2,170,32
2250 DATA 2,0,16,2,170,16
2255 DATA 0,170,16,0,170,16
2260 DATA 0,170,16,0,170,16
2265 DATA 0,170,16,0,170,16
2270 DATA 0,17,16
2275 POKE 2040,14
2280 VIC=53248
2285 POKE VIC,160
2290 POKE VIC+1,100
2295 POKE VIC+29,0:POKEVIC+23,0
2300 POKE VIC+28,1
2305 POKE VIC+33,0
2310 POKE VIC+37,1
2315 POKE VIC+38,5
2320 POKE VIC+39,6
2325 GOSUB 2850
2330 POKE VIC+21,1
2335 PRINT"                     ";
2340 Z=160:Y=100
2345 FORY=100 TO 164
2350 POKE VIC,Z:POKE VIC+1,Y
2355 Z=INT(Z+1)
2360 FORJ=1TO50:NEXTJ
2365 NEXTY
2370 GOSUB2850
2371 GOSUB2500:GOSUB2502
2372 GOSUB2500:GOSUB2502
2373 GOSUB2500:GOSUB2502
2374 GOSUB2550:GOSUB2552
2375 GOSUB2550:GOSUB2552
2376 GOSUB2500:GOSUB2502
2378 PRINT"HERE COMES THE RAIN!";
2379 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]I BETTER GET INSIDE."
2380 PRINT"":POKE151,4:SYS49152
2440 Z=224:Y=164
2445 FOR Y=164 TO 100STEP-1
2450 POKE VIC,Z:POKE VIC+1,Y
2455 Z=INT(Z-1)
2460 FORJ=1TO50:NEXTJ
2465 NEXTY
2467 POKEVIC+21,0
2468 PRINT
2470 PRINT"[149][163][163][163][163][163][163]"
2471 PRINT"[145][145][149][163][163][163][163][163][163]"
2472 PRINT"[145][145][149]      "
2473 PRINT"[145][145][149][204][175][175][175][175][186]"
2474 PRINT"[145][145][149][180]    [170]"
2475 PRINT"[145][145][149][207][183][183][183][183][208]"
2479 PRINT"               *    ";
2480 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]  *       .        ."
2499 GOTO2600
2500 PRINT"[205][205][206][205][205]":GOSUB2800:RETURN
2502 PRINT"     ":GOSUB2800:RETURN
2550 PRINT"                                 [205][205][206][205][205][205]":GOSUB2800
2551 RETURN
2552 PRINT"                                       ":GOSUB2800
2553 RETURN
2600 PRINT"                                       [145][145]"
2601 POKE1983,160:POKE56255,6:GOSUB2810
2603 PRINT"[145]                                        [145]":GOSUB2810
2605 PRINT"[145][145]                                        [145]":GOSUB2810
2607 PRINT"[145][145][145]                                        [145]":GOSUB2810
2608 PRINT"[145][145]                                        [145]":GOSUB2810
2610 PRINT"[145][145][145]                                        [145]":GOSUB2810
2612 PRINT"[145][145]                                        [145]":GOSUB2810
2614 PRINT"[145][145][145]                                        [145]":GOSUB2810
2616 PRINT"[145][145]                                        [145]":GOSUB2810
2618 PRINT"[145][145][145]                                        [145]":GOSUB2810
2620 PRINT"[145][145][145]                                        [145]":GOSUB2810
2622 PRINT"[145][145][145]                                        [145]":GOSUB2810
2624 PRINT"                                        ":GOSUB2800
2625 PRINT"[145]                                        ":GOSUB2800
2627 PRINT"[145]                                        ":GOSUB2800
2629 PRINT"[145]                                        ":GOSUB2800
2631 PRINT"[145]                                        ":GOSUB2800
2633 PRINT"[145]                                        ":GOSUB2800
2635 PRINT"[145]                                        ":GOSUB2800
2637 PRINT"[145]                                        ":GOSUB2800
2639 PRINT"[145]                                        ":GOSUB2800
2641 PRINT"[145]                                        ":GOSUB2800
2643 PRINT"[145]                                        ":GOSUB2800
2645 PRINT"[145]                                        ":GOSUB2800
2646 PRINT"GAME OVER"
2647 PRINT"         PLAY AGAIN? (Y/N)":POKE151,1:SYS49152
2648 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
2649 GETA$:IFA$=""THEN2649
2650 IFA$="Y"THEN20
2651 IFA$="N"THEN2700
2652 IFA$="M"THEN4000
2653 GOTO2649
2700 END
2710 PRINT"[147]      YOUR SCORE WAS"CA"OUT OF 15"
2720 PRINT"    YOU MUST GET 10 CORRECT IN ORDER"
2730 PRINT"       TO SEE NOAH AND THE FLOOD"
2740 PRINT"      ** STUDY AND PLAY AGAIN **"
2742 PRINT"           PLAY AGAIN? (Y/N)"
2743 GETA$:IFA$=""THEN2743
2744 IFA$="Y"THEN20
2745 IFA$="N"THEN2750
2746 GOTO2743
2750 END
2800 FORT=1TO250:NEXTT:RETURN
2810 FORT=1TO150:NEXTT:RETURN
2820 FORT=1TO70:NEXTT:RETURN
2830 FORT=1TO140:NEXTT:RETURN
2840 FORT=1TO1500:NEXTT:RETURN
2850 FORT=1TO500:NEXTT:RETURN
4000 POKE198,4:PRINT"[147]LOAD"CHR$(34)"BIBLE MENU"CHR$(34)",8";
4002 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END